SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
CREATE Procedure [dbo].[SP_TCRETE_ANUL_D02]  
/*-------------------------------------------------------*/  
/*---Empresa              : OFISIS S.A.                --*/  
/*---Cliente              : OFISIS S.A.                --*/  
/*---Sistema              : Tesoreria                  --*/  
/*---M«dulo               : Empresa                    --*/  
/*---Programa             : Anulaci½n Comp. Retenci½n     --*/  
/*---Script               : ttdocp_a.sql               --*/  
/*---Nombre SP            : SP_TTRETE_ANUL_D01         --*/  
/*---Desarrollado por     : Reynaldo Menacho L.           --*/  
/*---Fecha Creaci«n       : 11/06/2002                 --*/  
/*---Base Datos           : Microsoft Sql Server       --*/  
/*---Versi«n              : 7.0                        --*/  
/*---Invoca a SP          :                            --*/  
/*-------------------------------------------------------*/  
  
/*-------------------------------------------------------*/  
/*---Modificado 1 por     : Ernesto G½mez Torres       --*/  
/*---Fecha Modificaci«n   : 04/12/2003                 --*/   
/*---Detalle Modificaci«n : Versi½n 5                  --*/  
/*-------------------------------------------------------*/  
/*-------------------------------------------------------*/  
/*---Modificado 2 por     : Maribel Julca Rodriguez      --*/  
/*---Fecha Modificaci©n   : 20/04/2005                   --*/   
/*---Detalle Modificaci©n : ingreso de los campos CO_USUA_CREA Y CO_USUA_MODI                           --*/  
/*-------------------------------------------------------*/  
/*-------------------------------------------------------*/  
/*---Comentarios                                       --*/  
/*---                                                  --*/  
/*---                                                  --*/  
/*-------------------------------------------------------*/  
  
/*-------------------------------------------------------*/  
/*---Drop Proc SP_TCRETE_ANUL_D02                      --*/  
/*---Grant all on SP_TCRETE_ANUL_D02 to public         --*/   
/*---SP_TC_RETE_ANUL_D01                                --*/  
/*-------------------------------------------------------*/  
 @ISCO_EMPR        TD_VC_002,   
 @ISCO_USUA_MODI   TD_VC_008_USUA,  
 @ISNU_COMP_RETE TD_VC_020,  
 @IDFE_ANUL  TD_DT_001,  
 @ISCO_PROV  TD_VC_020,  
 @ISCO_BANC  TD_VC_003,  
 @ISNU_CNTA_BANC TD_VC_020,  
 @ISCO_CAJA  TD_VC_020,  
 @ISAA_BACA  TD_VC_004,  
 @ISMM_BACA  TD_VC_002,  
 @ISNU_COMP_BACA TD_VC_020
	As
Declare  
    @VSTI_DOCU_RETE TD_VC_003  
  
 Begin Tran SP_TTDOCP_ANUL_D01  
   
     SELECT @VSTI_DOCU_RETE = TI_DOCU  
     FROM TTDOCU_CNTB  
     WHERE ST_DOCU_0021 = 'S'  
  
    Update TCCOMP_RETE   
    Set TI_SITU = 'ANU',
   		CO_USUA_MODI = @ISCO_USUA_MODI,
   		FE_USUA_MODI = GETDATE()  
    Where  CO_EMPR = @ISCO_EMPR  
    And    NU_COMP_RETE = @ISNU_COMP_RETE  
  
    If @@error <> 0  
       Begin  
         Rollback tran  
         Return  
       End      
  
    Update TMDOCU_PROV   
    Set CO_ESTA_DOCU = 'ANU',
   		CO_USUA_MODI = @ISCO_USUA_MODI,
   		FE_USUA_MODI = GETDATE()   
    Where  CO_EMPR = @ISCO_EMPR  
    And    CO_PROV = @ISCO_PROV  
    And    CO_TIPO_DOCU  = @VSTI_DOCU_RETE  
    And    NU_DOCU_PROV = @ISNU_COMP_RETE  
  
    If @@error <> 0  
       Begin  
         Rollback tran  
         Return  
       End   
  
    Insert TCRETE_ANUL ( CO_EMPR, NU_COMP_RETE, FE_ANUL, CO_PROV, CO_BANC,  
   NU_CNTA_BANC, CO_CAJA, AA_BACA, MM_BACA, NU_COMP_BACA, CO_USUA_CREA, FE_USUA_CREA, CO_USUA_MODI, FE_USUA_MODI)  
    Values ( @ISCO_EMPR, @ISNU_COMP_RETE, @IDFE_ANUL, @ISCO_PROV, @ISCO_BANC,   
      @ISNU_CNTA_BANC, @ISCO_CAJA, @ISAA_BACA, @ISMM_BACA, @ISNU_COMP_BACA, @ISCO_USUA_MODI, GETDATE(),@ISCO_USUA_MODI, GETDATE())   
  
    If @@error <> 0  
       Begin  
         Rollback tran  
         Return  
       End      
  
  
  
Commit Tran  
  
/*-------------------------- Fin ------------------------------*/


GO
